home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / hypnosis.asc < prev    next >
Text File  |  1985-06-03  |  1KB  |  36 lines
  1. 100  REM  HYPNOSIS
  2. 110  REM 
  3. 120  REM 
  4. 130  ONERR  GOTO 300
  5. 140  HOME : HGR : VTAB 22: HTAB 16: PRINT "HYPNOSIS"
  6. 150 COUNT = 0
  7. 160 X = 0:Y = 0
  8. 170 N =  RND (N) * 50 + 25
  9. 180 COUNT = COUNT + 1
  10. 190  IF COUNT > (159 - N) THEN COUNT = 1: HGR 
  11. 200  IF (COUNT / 2) + .5 =  INT ((COUNT / 2) + .5) THEN  HCOLOR= 3
  12. 210  IF ((COUNT / 2) + .5) <  >  INT ((COUNT / 2) + .5) THEN  HCOLOR= 0
  13. 220 N = N + COUNT
  14. 230  IF N > 159 GOTO 160
  15. 240  HPLOT X + N,Y + N TO X + (279 - N),Y + N
  16. 250  HPLOT X + (279 - N),Y + N TO X + (279 - N),Y + (159 - N)
  17. 260  HPLOT X + (279 - N),Y + (159 - N) TO X + N,Y + (159 - N)
  18. 270  HPLOT X + N,Y + (159 - N) TO X + N,Y + N
  19. 280  IF  PEEK (49152!) > 127 THEN  GOTO 300
  20. 290  GOTO 220
  21. 300  REM 
  22. 310  REM  EXIT ROUTINE
  23. 320  PRINT : PRINT : PRINT "HYPNOSIS"
  24. 330  PRINT "DEMONSTRATION FINISHED"
  25. 340  PRINT "PRESS 'RETURN' TO EXIT ";
  26. 350  POKE 49168!,0: REM    CLEAR KEY CHECK 
  27. 360  INPUT "";A$
  28. 370  HOME : TEXT 
  29. 380  PRINT "HYPNOSIS": PRINT "DEMONSTRATION FINISHED"
  30. 390  END 
  31. EM    CLEAKKEY CHECK 
  32. 360  INPUT "";A$
  33. 370  HOME : TEXT 
  34. 380  PRINT "HYPNOSIS": PRINT "DEMONSTRATION FINISHED"
  35. 390  END 
  36. EM    CLEA